ggplotly

#Google FONTS
library(showtext)
#Lato for numbers, Assistant for text
font_add_google("Lato")
font_add_google("Assistant")
showtext_auto()

#Location of Final dataset on Github
LifeExpIncomFinal <- "https://raw.githubusercontent.com/APM3030/STA553/main/homework3/LifeExpIncomFinal.csv"
LifeExpIncomFinal <- read_csv(LifeExpIncomFinal)
#convert year to integer
LifeExpIncomFinal <- mutate(LifeExpIncomFinal, Year = as.integer(LifeExpIncomFinal$Year))

leifinal2015 <- LifeExpIncomFinal %>% filter(Year == 2015)

w <-     ggplot(leifinal2015, aes(Income, LifeExp, 
                  size = Population, colour = geo)) +

    geom_point(alpha = 0.5) +
        
    scale_size(range = c(2, 12)) +
           scale_x_log10(labels = scales::dollar) +
    labs(title = 'Relationship Between Life Expectancy and GDP 2015' ,
                    x = 'GDP Per Capita',
                    y = 'Life Expectancy in Years',
                    colour = 'Region:')+
    theme_minimal() +
  theme(legend.position = "none")

ggplotly(w)

NA